C  THIS DOES TRANSLATION OF INPUT AND WRITES BINARY FILE FOR PASS 3.
      COMMON K,I(512) /P/P(50)
	1 /IFIRST/IFIRST,IDT
	EQUIVALENCE (P2,P(2))
	DATA TRNS/'TRNS'/,BLA/' '/
C****************CHECK NEAR HERE FOR NEEDED CHANGES **************
	TYPE 3
	ACCEPT 4,XNAM
	IF(X.EQ.BLA)X=TRNS 
	CALL OPEN(21,XNAM,0,'NEW',,,'UNF')
CC	CALL OFILE(21,XNAM)
C CREATE OUTPUT FILE, DEFAULT NAME=TRNS 
	IFIRST=-1
	IDT=1
C ABOVE 2 ARE IN TRANS. ROUTINES.
1	CALL TRANS(IDT)
	IF(P(1).EQ.1)TYPE 5,P2
2	WRITE(21)K,(P(J),J=1,K)
	IF(P(1).EQ.6.)CALL EXIT   
C CLOSE FILE AFTER A 'FINISH' OR A COLON (=END OF INPUT) HAS BEEN READ.
	GO TO 1
3	FORMAT(' TYPE OUTPUT NAME(<CR>=TRNS) -- '$)
4	FORMAT(A4)
5	FORMAT('+',F9.2,$)
	END
	SUBROUTINE PLAY
C THIS IS A DUMMY
	END